object dmCons: TdmCons
  OldCreateOrder = False
  Height = 290
  Width = 393
  object dspCons: TDataSetProvider
    DataSet = sqlCons
    Options = [poAllowCommandText, poUseQuoteChar]
    UpdateMode = upWhereKeyOnly
    Left = 96
    Top = 24
  end
  object sqlCons: TSQLDataSet
    CommandText = 'select idconvenio, nomeconvenio from convenios'
    DbxCommandType = 'Dbx.SQL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dm.MedicoPro
    Left = 32
    Top = 24
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 56
    Top = 232
  end
  object qryConsHorario: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'idMedico'
        ParamType = ptInput
      end
      item
        DataType = ftTimeStamp
        Name = 'DataHoraInicio'
        ParamType = ptInput
      end
      item
        DataType = ftTimeStamp
        Name = 'DataHoraFim'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select first 1 * from Reservas'
      'where idMedico = :idMedico'
      'and DataHora < :DataHoraInicio'
      'and DataHoraFim > :DataHoraFim'
      'and Status = '#39'D'#39';')
    SQLConnection = dm.MedicoPro
    Left = 32
    Top = 104
  end
end
